home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2_l.plp < prev    next >
Text File  |  1993-11-30  |  4KB  |  146 lines
  1. /**********   受信ログのマージ処理を行う  v1.04a用   **********/
  2. %MergeLog{
  3.     %Mail{
  4.     %fname logd|{\MAIL\MAIL};
  5.     footnote({ 受信メールのマージ処理をしています});
  6.     case(@filechk(fname|{.LOG}),
  7.     {Yes},{
  8.         mergefile(fname|{.LOG},logm1|{\MAIL}|mrgsuff);
  9.     });
  10.     footnote({});
  11.     };
  12.  
  13.     %oneHP{[name,pass,fname] 
  14.     footnote({ ＨＰ(}|name|{) のマージ処理をしています});
  15.     case(@filechk(logd|{\HP\}|fname|{.LOG}),
  16.     {Yes},{
  17.         mergefile(logd|{\HP\}|fname|{.log},logh1|{\}|fname|mrgsuff);
  18.     });
  19.     footnote({});
  20.     };
  21.     %HP{
  22.     var hp2[1000];
  23.     hp2 := hp;
  24.     loop({
  25.         %hpset @head(hp2,{,});
  26.         hp2 := @body(hp2,{,});
  27.         oneHP(  @head(hpset,{/}) ,
  28.             @body(hpset,{/},{/}),
  29.             @tail(hpset,{/}) );
  30.         im(hp2<>{})
  31.     });
  32.     };
  33.  
  34.     %onePatio {[name,pass,fname] 
  35.     footnote({ パティオ(}|name|{) のマージ処理をしています});
  36.     case(@filechk(logd|{\PATIO\}|fname|{.LOG}),
  37.     {Yes},{
  38.         mergefile(logd|{\PATIO\}|fname|{.log},logh1|{\}|fname|mrgsuff);
  39.     });
  40.     footnote({});
  41.     };
  42.     %Patio{
  43.     var patio2[500];
  44.     patio2 := patio;
  45.     loop({
  46.         %patioset @head(patio2,{,});
  47.         patio2 := @body(patio2,{,});
  48.         onePatio(  @head(patioset,{/}) ,
  49.                @body(patioset,{/},{/}),
  50.                @tail(patioset,{/}));
  51.         im( patio2 <> {} )
  52.     });
  53.     };
  54.  
  55.     %oneBoad{[boadn]
  56.     %CcsNo    @case(@nochar(boadn),
  57.           {1},{im({0}|boadn);
  58.         },{2},{im(    boadn);
  59.     });
  60.     case(@filechk(ForumDir|{\MES}|CcsNo|{.LOG}),{Yes},{
  61.         footnote({ フォーラム}|fname|{の}|CcsNo|{会議室の}|
  62.                 {マージ処理をしています});
  63.         mergefile(ForumDir|{\MES}|CcsNo|{.LOG},
  64.              MergeDir|{\MES}|CcsNo|mrgsuff);
  65.         footnote({});
  66.     });
  67.     };
  68.     %oneForum{[fname,ccsset]
  69.     %ForumDir   logd|{\}|fname;
  70.     %MergeDir   logc1|{\}|fname|logc2;
  71.     var boadn[10];
  72.     var HeadN[3];
  73.     var TailN[3];
  74.     boadn:=1;
  75.     mkdir(logc1|{\}|fname|logc2,{});
  76.     case(ccsset={},
  77.     {Yes},{    loop({oneBoad(boadn); boadn:=boadn+1; im(boadn<=20)});
  78.     },{No},{
  79.         loop({    boadn:=@head(b2,{,});
  80.             b2:=@body(b2,{,});
  81.             HeadN:=@body(boadn,,{-});
  82.             case(HeadN={},
  83.             {Yes},{    oneBoad(boadn);
  84.             },{No},{TailN:=@body(boadn,{-});
  85.                 case(TailN,{},{TailN:=20});
  86.                 loop({    oneBoad(HeadN);
  87.                     HeadN:=HeadN+1;
  88.                     im(HeadN<=TailN)
  89.                 });
  90.             });
  91.             im(b2<>{});
  92.         });
  93.     });
  94.     footnote({});
  95.     };
  96.     %oneBUL{[fname]
  97.     %ForumDir   logd|{\}|fname;
  98.     %MergeDir   logb1|{\}|fname;
  99.     case(@filechk(ForumDir|{\BUL.LOG}),
  100.     {Yes},{ footnote({ フォーラム}|fname|{の掲示板マージ処理をしています});
  101.         mkdir(logb1,fname);
  102.         case(logb2<>{},{Yes},{mkdir(logb1,fname|logb2)});
  103.         mergefile(ForumDir|{\BUL.LOG},MergeDir|{\BUL}|mrgsuff);
  104.     });
  105.     footnote({});
  106.     };
  107.     %Forum{[T]
  108.     var f2[1000];
  109.     var b2[100];
  110.     f2:=forum;
  111.     loop({
  112.         %fnset    @head(f2,{/});
  113.         %fname    @head(fnset,{(});
  114.         %ccsset    @body(fnset,{(},{)});
  115.         b2:=ccsset;
  116.         f2:=@body(f2,{/});
  117.         case(T,
  118.         {MES},    {oneForum(fname,ccsset);
  119.         },{BUL},{oneBUL(fname);
  120.         });
  121.         im(f2<>{})
  122.     });
  123.     f2:=rtn;
  124.     loop({
  125.         %fnset    @head(f2,{/});
  126.         %fname    @head(fnset,{(});
  127.         %ccsset    @body(fnset,{(},{)});
  128.         b2:=ccsset;
  129.         f2:=@body(f2,{/});
  130.         case(T,
  131.         {MES},    {oneForum(fname,ccsset);
  132.         },{BUL},{oneBUL(fname);
  133.         });
  134.         im(f2<>{})
  135.     });
  136.     };
  137.  
  138.     chg:={};
  139.     case(logm1<>{},{Yes},{case(@ChkDrv(logm1,mm),{Yes},Mail)});
  140.     case(logh1<>{},{Yes},{case(@ChkDrv(logh1,mh),{Yes},HP)});
  141.     case(logh1<>{},{Yes},{case(@ChkDrv(logh1,mh),{Yes},Patio)});
  142.     case(logc1<>{},{Yes},{case(@ChkDrv(logc1,mc),{Yes},{Forum({MES})})});
  143.     case(logb1<>{},{Yes},{case(@ChkDrv(logb1,mb),{Yes},{Forum({BUL})})});
  144.     case(chg,{Yes},{ChkDrv(current,mr)});
  145. };
  146. MergeLog;